Moraine Watch Tutorial

---
title: "Moraine Watch Tutorial"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(knitr)
library(flexdashboard)
library(sf)
library(shiny)
library(leaflet)
library(shiny)
library(geojsonio)
library(dplyr)
```

### Oak Ridges Moraine Conservation Plan Land Use Designations

```{r ormcp, echo=FALSE, message=FALSE, warning=FALSE}
ormcp <- st_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/Oak_Ridges_Moraine_(ORM)_Land_Use_Designation.geojson", quiet=TRUE)

ormcpPal <- colorFactor(
  c('#7fc97f','#beaed4','#fdc086','#ffff99','#386cb0','#f0027f'),
  domain = ormcp$LAND_USE_DESIGNATION
)

#output$map <- 
#  renderLeaflet({

leaflet(ormcp) %>%
  
  addTiles(attribution = '<a href="https://stormcoalition.github.io/sources.html" target="_blank" rel="noopener noreferrer"><b>METADATA</b></a> © <a href="https://www.stormcoalition.com/" target="_blank" rel="noopener noreferrer"><b>Save The Oak Ridges Moraine</b></a>') %>%
  
  addTiles() %>%
  addTiles("https://tile.oakridgeswater.ca/ORMbasemap/{z}/{x}/{y}", options = providerTileOptions(attribution=" © Save The Oak Ridges Moraine")) %>%
  
#   addMouseCoordinates() %>%
  
#   addMeasure(
#     position = "topleft",
#     primaryLengthUnit = "meters",
#     primaryAreaUnit = "hectares",
#     secondaryAreaUnit = "acres",
#     activeColor = "#3D535D",
#     completedColor = "#7D4479"
#     ) %>%

#   addEasyButton(easyButton(
#     icon="fa-crosshairs", title="Locate Me",
#     onClick=JS("function(btn, map){ map.locate({setView: true}); }"))) %>%

  addPolygons(
    color = "black",
    weight = 2,
    fillColor = ~ormcpPal(LAND_USE_DESIGNATION),
    opacity = .5, 
    group="Show Land use Designation",
    label = ~LAND_USE_DESIGNATION,
    popup = ~paste0(
      '<b>Land Use Designation: ', LAND_USE_DESIGNATION,"</b>",
      '<br>', LAND_USE_DESIG_DEFINITION
    ),
    highlightOptions = highlightOptions(
      opacity = 1, fillOpacity =.8, weight = 5, sendToBack = FALSE
    )
  ) %>%

  setView(lng = -79.0, lat = 44.1, zoom = 9) %>%
  addLayersControl(
    # baseGroups = c("OSM", "basemap"),
    overlayGroups = "Show Land use Designation",
    position = 'bottomright',
    options = layersControlOptions(collapsed = FALSE)
  )
#})


#observe({
#  leafletProxy("map") %>% clearPopups()
#  event <- input$map_click
#  if (is.null(event)) return()
#  lat <- round(event$lat, 4)
#  lng <- round(event$lng, 4)
#  leafletProxy("map") %>% addPopups(event$lng,event$lat,paste0(lat, ',', lng))
#})


#observe({
#  map <- leafletProxy("map") %>% clearControls()
#  if (!is.null(input$map_groups) ) {
#    if (input$map_groups == 'Show Land use Designation') {
#      map <- map %>%
#        addLegend( #code for gdp legend
#          layerId = "lormcp",
#          # values=~ormcp@data$LAND_USE_DESIGNATION
#          opacity=0.9,
#          title = "<a href='https://files.ontario.ca/oak-ridges-moraine-conservation-plan-2017.pdf'>Oak Ridges Moraine Conservation Plan</a><br>Land Use Designation (2017)",
#          position = "bottomright",
#          # pal = ormcpPal
#          colors = c('#7fc97f','#beaed4','#fdc086','#ffff99','#386cb0','#f0027f'),
#          labels = c("Countryside Area", "Natural Core Area", "Natural Linkage Area", "Palgrave Estates Residential Community", "Rural Settlement", "Settlement Area")
#        )
#    }
#  }
#})
```

------------------------------------------------------------------------

Save The Oak Ridges Moraine (STORM) Coalition works collaboratively and has established relationships of mutual support with diverse groups and organizations. STORM participates in environmental land use planning, policy development and stewardship to safeguard the moraine from inappropriate development that has a negative impact.

STORM's years of experience and a well-developed network of local and regional contacts were critical to the campaign that saved (legislatively) the Oak Ridges Moraine (ORM). In 2001, the Ontario Legislature unanimously enacted the Oak Ridges Moraine Conservation Act and in 2002 the province passed the Oak Ridges Moraine Conservation Plan (ORMCP). To read the ORMCP [here](https://files.ontario.ca/oak-ridges-moraine-conservation-plan-2017.pdf).

The Plan divides the Moraine into four land use designations:

-   **Natural Core Areas** (38% of the Moraine)

-   **Natural Linkage Areas** (24% of the Moraine)

-   **Countryside Areas** (30% of the Moraine)

-   **Settlement Areas** (8% of the Moraine)

You can use the map to explore the land use designations on the moraine.

The ORMCP focuses on protecting headwater areas, watersheds and groundwater features and functions, as well as forests, wetlands and farmland, and is the jumping-off point for "smart growth" across Ontario.

Learn more about why conservation matters on the Moraine in [Episode 9](https://www.youtube.com/watch?v=ueool1sVE_I) of STORM's video series.

------------------------------------------------------------------------

### Moraine Watch Mapping

```{r morainewatch, echo=FALSE, message=FALSE}
aoc <- st_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/moraine-watch-aoc.geojson", quiet=TRUE)

leaflet() %>%
  addTiles("https://tile.oakridgeswater.ca/ORMbasemap/{z}/{x}/{y}.png", options = providerTileOptions(attribution=" © Save The Oak Ridges Moraine")) %>%
  
  addTiles(attribution = '<a href="https://stormcoalition.github.io" target="_blank" rel="noopener noreferrer"><b>STORM maps</b></a> | <a href="https://stormcoalition.github.io/sources.html" target="_blank" rel="noopener noreferrer"><b>Source Data</b></a> © <a href="https://www.stormcoalition.com/" target="_blank" rel="noopener noreferrer"><b>Save The Oak Ridges Moraine</b></a>') %>%
    
    addTiles() %>%
    addTiles("https://tile.oakridgeswater.ca/ORMbasemap/{z}/{x}/{y}", options = providerTileOptions(attribution=" © Save The Oak Ridges Moraine")) %>%
  
     setView(lng = -79.0, lat = 44.1, zoom = 9) %>%
    
    addPolygons(
      data = aoc,
      layerId = ~id,
      color = "red",
      weight = 3,
      # fillColor = ~ormcpPal(LAND_USE_DESIGNATION),
      opacity = .5, 
      # group="ORM Land use",
      label = ~name,
      highlightOptions = highlightOptions(
        opacity = 1, fillOpacity = 1, weight = 5, sendToBack = FALSE
      )
)
```

Using geographic information systems (GIS) mapping tools STORM to harness the power of community groups and concerned citizens.

The Moraine Watch mapping tool provides an interactive resource to view areas of development that are monitored by STORM's Moraine Watch Program.

On this map you can see:

-   [Red polygons]{style="color:red"} show the boundaries of current locations of development concern on the ORM that have been reported by volunteers.

-   You can see the name of each area of concern by hovering your cursor over the [red polygons]{style="color:red"}.

-   Click on one of the [red polygons]{style="color:red"} to view more information (source, date, other links).

Click to the next page to see an example of a watch that has been submitted to the moraine watch.

### Mary Lake Example

```{r marylake, echo=FALSE, message=FALSE}
leaflet() %>%
  addTiles("https://tile.oakridgeswater.ca/ORMbasemap/{z}/{x}/{y}.png", options = providerTileOptions(attribution=" © Save The Oak Ridges Moraine")) %>%
  
  addTiles(attribution = '<a href="https://stormcoalition.github.io" target="_blank" rel="noopener noreferrer"><b>STORM maps</b></a> | <a href="https://stormcoalition.github.io/sources.html" target="_blank" rel="noopener noreferrer"><b>Source Data</b></a> © <a href="https://www.stormcoalition.com/" target="_blank" rel="noopener noreferrer"><b>Save The Oak Ridges Moraine</b></a>') %>%
    
    addTiles() %>%
    addTiles("https://tile.oakridgeswater.ca/ORMbasemap/{z}/{x}/{y}", options = providerTileOptions(attribution=" © Save The Oak Ridges Moraine")) %>%
  
     setView(lng = -79.546596, lat = 43.951868, zoom = 14) %>%
    
    addPolygons(
      data = aoc,
      layerId = ~id,
      color = "red",
      weight = 3,
      # fillColor = ~ormcpPal(LAND_USE_DESIGNATION),
      opacity = .5, 
      # group="ORM Land use",
      label = ~name,
      highlightOptions = highlightOptions(
        opacity = 1, fillOpacity = 1, weight = 5, sendToBack = FALSE
      )
)

```

Let's look at Mary Lake as an example. Click on the Mary Lake area polygon to learn more about the development concern in this area. Have the map on the story focused on this area so it is easy for users to find and click on.

Volunteers can submit their concerns using this map. Concerns will be reviewed by STORM and shown on the map if found to be an area of developmental concern on the ORM.

------------------------------------------------------------------------

### Report a Concern To The Moraine Watch

<!-- <iframe src="https://stormcoalition.shinyapps.io/morainewatch" width="100%" height="400" scrolling="no"></iframe> -->



<!-- <iframe src="https://golang.oakridgeswater.ca/pages/swsmet.html" width="100%" height="400" scrolling="no" allowfullscreen></iframe> -->

```{r morainewatch2, out.width='100%'}
  knitr::include_app("https://stormcoalition.shinyapps.io/morainewatch/", height = "100%")
```

------------------------------------------------------------------------

Are you concerned with land use changes occurring atop the ORM? You can report your concerns here using the Moraine Watch Map.

Concerns about development can be reported directly by submitting a watch. To do this:

1.  Using the map on this page, locate the area where you would like to report a development problem.

2.  Clicking on the approximate area of concern on the map.

3.  A popup will appear with the words ["Submit Watch"]{style="color:blue"}.

4.  Click ["Submit Watch"]{style="color:blue"} to send an email detailing your concerns about development on the Oak Ridges Moraine.

You can also submit adevelopment concern by visiting the [Moraine Watch Map](https://stormcoalition.shinyapps.io/morainewatch/) on our website.

------------------------------------------------------------------------

### Next Steps

```{r nextsteps, echo=FALSE, message=FALSE}
orm <- readLines("https://raw.githubusercontent.com/stormcoalition/geojson/main/Oak_Ridges_Moraine_(ORM)_Land_Use_Designation-dissolve.geojson") %>% paste(collapse = "\n")
ridings <- st_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/ELECTORAL_DISTRICT_STORM.geojson", quiet=TRUE)
CAs <- st_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/CONS_AUTH_ADMIN_AREA_STORM.geojson", quiet=TRUE)

# munis <- st_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/MUNIC_BND_ALL_STORM.geojson")
munis <- geojson_read("https://raw.githubusercontent.com/stormcoalition/geojson/main/MUNIC_BND_ALL_STORM.geojson", what = "sp")
neword <- order(-munis@data$area)  # set order
munis@polygons <- munis@polygons[neword]
munis@plotOrder <- neword
munis@data <- munis@data %>% arrange(-area)

leaflet() %>%
  
  addTiles(attribution = '<a href="https://stormcoalition.github.io" target="_blank" rel="noopener noreferrer"><b>STORM maps</b></a> | <a href="https://stormcoalition.github.io/sources.html" target="_blank" rel="noopener noreferrer"><b>Source Data</b></a> © <a href="https://www.stormcoalition.com/" target="_blank" rel="noopener noreferrer"><b>Save The Oak Ridges Moraine</b></a>') %>%
  
  addTiles() %>%

  addGeoJSON(orm, color = 'black', weight=1, fillColor  = "darkorange") %>%

  addPolygons(
    data = CAs,
    color = "darkgreen",
    weight = 2,
    opacity = .5,
    group="Conservation Authorities",
    label = ~LEGAL_NAME,
    highlightOptions = highlightOptions(
      opacity = 1, fillOpacity = .65, weight = 5, sendToBack = FALSE
    )
  ) %>%

  addPolygons(
    data = munis,
    color = "darkblue",
    weight = 2,
    opacity = .5,
    fillOpacity = .1,
    group="Municipalities",
    label = ~MUN_NAME,
    highlightOptions = highlightOptions(
      opacity = 1, fillOpacity = .45, weight = 5, sendToBack = FALSE
    )
  ) %>%
  
  addPolygons(
    data = ridings,
    color = "darkred",
    weight = 2,
    opacity = .35,
    group="Member of Provincial Parliament (MPP)",
    label = ~Riding,
    popup = ~paste0(
              '<b>Riding: ', Riding,"</b>",
              '<br>MPP: ', First_name," ",Last_name,
              '<br>email: <a href="mailto:',Email,'">',Email,'</a>',
              '<br>telephone: ', Telephone
              ),
    highlightOptions = highlightOptions(
      opacity = 1, fillOpacity = .65, weight = 5, sendToBack = FALSE
    )
  ) %>%
  
  setView(lng = -79.0, lat = 44.1, zoom = 8) %>%

  addLayersControl(
    baseGroups = c("Municipalities", "Conservation Authorities", "Member of Provincial Parliament (MPP)"),
    options = layersControlOptions(collapsed = FALSE)
  ) %>% 
  hideGroup(c("Conservation Authorities", "Member of Provincial Parliament (MPP)")) 

  #%>%
    
  # addLogo("logo-transp.png", src= "remote", width = 127)
  # addLogo("logoGBF_transp.png", src= "remote", width = 234)

```

We can all be stewards of the Oak Ridges Moraine!

Here are some things you can do to be a an active participant in stewardship of the Moraine:

1.  Share this information with people you know that live on, or visit the Oak Ridges Moraine regularly. Protecting and preserving the ORM will be more successful if we work together as a community.

2.  Educating yourself can help you know where to turn for information. Do you know what jurisdiction you are in? Which Conservation Authority manages your watershed? The name of the Member of Provincial Parliament (MMP) in your area? You can use the map on this page to find this information.

3.  If you would like to do more, volunteer with us! Fill out our volunteer form [here](https://forms.gle/Ea28c8GF1urGaB1V6).

Thank you for your support!

------------------------------------------------------------------------

This Storyboard was created using a [storyboard template](https://testing-apps.shinyapps.io/flexdashboard-storyboard/) from [Flexdashboard](https://pkgs.rstudio.com/flexdashboard?_gl=1*1g425u*_ga*MTE0MjQzNzQ5NS4xNzAxMjA1NzM0*_ga_2C0WZ1JHG0*MTcxMTQ2Njc5NS4zLjEuMTcxMTQ2NzY4NC4wLjAuMA../).